Invisible debugger S dec 1969 
dfd^S 



dimens 
d imens 
d imens 
d imens 
d imens 
d Imens 
d imens 
d imens 
d imens 
d imens 
d imens 
di mens 
dimens 
d imens 
di mens 
dimens 
d Imens 
dimens 



on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
ion 



sbuUfl) 
syl(Z) 
let(7) 
ch! (7) 

C« i C K 1 } 

ch(7) 
sym( 7 ) 
wrd( J ) 
cnc( 7 ) 
df 7(7) 
I If (7) 
fa(7) 



fa2 
mod 
tas 
pvp 
dff 
t0( 



/smal I buffer 

/octal number, decimal number 
/becomes if letter seen 
/becomes if any syllable 
/character packing count 



/character 

/pointer to symbol being packed 

/expression 

/concise code of symbol 

/value for symbol definition 

/nonzero if A I etc. typed 

/expression preceding last < 

7) /expression preceding next to last < 

7) /mode, -0 for type- in 

7) /current examine address 

7) /field, set up by trc 

7) /switch used in fet, dep 

),t7(7),t2(7),t3(7),t4(7) 



100/ 

100, jmp Rt0 /entry from user 

101, j mp e re /ill I ns t in ID 

102, jmp lse-2 /hit call in ID 
lse-2, clc 

dac whr 
Ise, Jsp Ice 

Ise+J,, eem 

iam 

law squose i 

dac low /repair symbol table 

Isa, d2m mod 

dsm tas 
I s s , dam ii f 

cla 
lss+2, dap xsw /clear % < x switch 

lav/ Iwt 

dap bax 

clc*clf 7 

dac chi 

dsm wrd 

lac (jmp Ise 

dac aus 

lac (010000 

dac pvf /initialise pv 

law top-bbu 

add bot 

and (7740 

dap pgS /max count for pv 

lac Iwt 

dac df? 

lac (ior i 
ssn, dip sgn 

dzm syl 

dsm syl+? 
n2, law i 2 

add bot 

dac sym 

TAX 

dam i top 

dsm enc 

clc^stf 1 /enable call button 

dac let 

dac chc 

Isr, tyi 

lsr+1, dio ch 

TIX 

lac i dtb 
cas, skp /skip if lower case 

rar 9s 

and (777 

dac t2 

dac t4 

sub (44 

spa 

jmp In 

add (jmp uc 

dap Isx 



es/4, 



sgi 



ISX, 



sub 


ar! 


/last no-eval r 


I io 


chi 




spq 






jmp 


1 Isx 




Ixr 


syrn 




lac 


i tpp 




1 i o 


lep 




sad 


(squose 


« 


dio 


i if 


/sy I lab le was , 


Ixr 


(sy l-to 


»P 


I Io 


let 




spl 


i 




jdp 


ev I 




jmp 


ev4 




law 


77 




sad 


ch 




asm 


tas 




lac 


(f laxo 


U 


j da 


tys 




jmp 


Iss 




lac 


Isx 




sub 


cbr 




spa 






jmp 


• 4 




lac 


iff 




ssa 






jmp 


err 




lac 


wrd 




top 




/operator 


dac 


wrd 




dac 


df 7 




I io 


chi 




spi 






lac 


Iwt 




dac 


to 




jmp 


o 





n, 



In, 



1/ 



ln3, 



ri r 


5s /digit rout i ne 


spi 




dsm 


t4 


Ixr 


(-2 


lac 


ops 


mu 1 


i syl+2 


scr 


7s 


A + II 




lac 


t4 


A+II 




ssa^sn i 


ClU 


cmi /-0 


dio 


i syl+2 


law 


10. 


SXXF 


> 


jmp 


.-72 


jmp 


17 


add 


(44-72 


spa 




jmp 


n 


asm 


let /letter routine 


dzm 


chi 


idx 


chc 


sas 


(4 


jmp 


ln3 


law 


7 


dac 


chc 


law 


i 7 /move rest of s 


a dm 


sym 


TAA> 


r 


add 


(top-bbu 


spa 




jmp 


ser-3 /no room 


lac 


i top+7 


dac 


i top 


SXXA 


sas 


bot 


jnp 


.-4 


dsm 


i top-2 


lac 


(.400000 


a dm 


i top-3 


dsm 


cnc 


Ixr 


bot 


lac 


1 top-2 


mu I 


(50 


div 


(7 


hit 




add 


t2 


SAA 




dac 


i top-2 


lac 


cnc 


ra I 


6s 


ior 


ch 


dac 


cnc 


jmp 


Isr 



symbol down 



mp i , law i 7777 /read mpr Instruction 

upw-2, 
upw. 



upq 



law i 777 7 


/read mpr 


dac syl 




d=m chi 




law up? -J 




dap upq 




tyl 




law charac 


r/ 


A$IP| 




j mp de I 




!dx upq 




TAX 




law I 77 7 7 




and i 




sad (jmp 




jmp , 




ra I 6s 




A$IP 




jmp upw+4 




law 7740 




and ! 




scr 6s 




spl i 




ral 6 s 




xor syl 




dac syl 




law 37 




and i 




add upw-2 




dap upq 




jmp upw 





/bug - if lower case typed, goes to err, cas is wrong 



define pack a)b,c,d 
char I 'a b*100 c-up? 
term In 



up7, 



u2p, 



up3, 

up4, 
up5, 



pack 


t, 4 0, up 3 


pack 


c,42,up3 


pack 


s, 7 0,u2p 


pack 


2, ?0,Up£ 


pack 


a,60,up6 


pack 


],40,up7 


pack 


x,20,up6 


pack 


a, 2,upS 


pack 


i ,4,up£ 


pack 


x,6,up£ 


pack 


i ,60,up£ 


pack 


a,0,up$ 


pack 


x,20,upS 


pack 


a,60,up£ 


pack 


i,40,up$ 


jmp err 



up6, 
up7, 



upl. 



pack 0,4,up5 
pack m,6,up5 
pack -, ?6,up4 
pack 3, 74,up4 
pack 6, 7 2,up4 
pack 5, 7 0,up4 
jmp err 



pack 
pack 
pack 
pack 
pack 
pack 
pack 
pack 
pack 
pack 
jmp I 



a, 7 ,up£ 
i ,40,upS,40 
x,20,up£,40 
; ,77,upS,40 
p,2,upS,40 
m, 7,upS,40 
[,3 ,3,upS,40 

J? . 1 h . un% .40 

7,4,upS,40 
: ,3,upS,40 
sr+7 



evlv /symbol lookup 

1 1 o bot 

jmp ,+3 
evl+3, TXIPj 

jmp evn /not found 

t x r s ym 
ev2 # lac i top 

X-*IX 

sxx 

sad ! top-/ 

jmp ev3 

sma 

jmp ev 3-3 
ev5, lac i top-7 

SXX 

spa 

jmp ev5 

jmp evl+3 
ev3-3, ior (260060 /check for calm symbol 

sas f top-J 

jmp ev5 
ev3, SII 

sma 

jmp i ev 1 

X-*IX 

jmp ev2 

evn, i dx ev I 

jmp i evl 



/no-svat routines 



uc, 


ZAP 




/upper 


case 


lc, 


law 
dap 

jmp 


600 
cas 
Isr 


/ 1 owe r 


case 


sqo, 


spi 

jmp 
Ix r 
lac 

jmp 


mp i 
sym 
i top 
n? 


r 




quo, 


lac 

jmp 


cnc 
n? 


r 




q, 


lac 

jmp 


Iwt 
n? 


/Q 






spi 
jmp 
lav; 


i 

.ff 

fg 


/F 




n0, 


lio 

sn i 
jmp 

dac 


i If 
J 

err 
i i f 






n?, 


dzm 
dac 

jmp 


chi 
sy I 
n2 







d&q, 


lac 


df 7 


/\ 




imp 


def-2 




com, 


lac 

S 25 


lep 


/, 




J nip 


e r& 






lac 


loc 




def-2. 


and 


(7777 






dac 


df 7 




def , 


lac 


let 


/) 




lor 


I i f 




sk? , 


ssa 








jmp 


erp 






lav/ 


pn2 




de, 


dam 


dff 


/switch fi 




dEm' 


sy I 


/switch f< 




dap 


dex 






jdp 


ev I 






jmp 


df2 






law 


i top-bbu-300 




sub 


sym 






sma 








jmp 


ser 


/overflow 




Ixr 


bot 






lac 


df 7 






dac 


i top-? 






lac 


s ym 






da c 


bot 






lac 


(tOQOQO 






I s o 


sy I 






sn ! 


I 






a dm 


i top-2 






jmp 


dex 






i io 


df 7 


/redefine 




d io 


i top 






lac 


i top-? 






I Io 


sy I 






sn i 








and 


(-200001 


) 




dac 


i top-7 




dex/ 


jmp 


• 




dot/ 


I » o 


chc 


/. 




lav/ 


7777 






and 


loc 






sp 1 


1 






lac 


syl + ? 






dac 


sy I 






law 


squo=e < 


,-? 




dac 


t2 






jmp 


1/ 




de 1/ 


jmp 


pnf 


/? 



mode 



/new symbol 



/leave symbol loud if it was already 



/evai routines permitting A, I, etc 

'pis, 



mi n, 



ovb, 



ov2, 



bac, 
has, 



vb, 
Ipr, 

bar / 
bar+7 , 

br2, 



lac (add 1 /+, space 
j mp s s n 



cbr 



SP i 


/- 




d 1 o w r d 






lac (sub i 






jmp ssn 






clc 


/; 




spl 






j mp n J 






lac i i f 






sas (bk7 






jmp ov2 






clc 


/B; 




b=0 






repeat nbp,dac bk7 b 


b=b 7 


jmp Ise 






sas (msk 






jmp err 






clc 


/M; 




dac msk 






dzm I I 






law 7777 






dac u I 






jmp Ise 






law opt 


/[ 




jmp .+2 






law pi 


/] 




dap bax 






lac i if 






ssa i 






jnp bar 






dac tsp 






lac tO 






jmp ta9 






law ta5 


/I 




jmp bar + 7 






clc 


/( 




dac mod 






law ta 5+4 


/s lash 




dap br2 






spi i 






jmp a 






lac Ic2 






dac ts2 






law ta6-ta5 






adm br2 






j mp b r 2 


/used as 


constant 



/other eval routines 



ki 1/ 



K I Q f 



spi i /K 

j mp k i 5 

Lav; i top -lev/ 

dac bot 

jmp Ise 



pre, 


lac 


lc2 


eq I, 


jdp 


eap 




jda 


opt 


Pn2, 


jsp 


let 




jmp 


Iss 


phx, 


jdp 


eap 




j da 


tys 




jmp 


pn2 


arw, 


jdp 


eap 




j da 


pi 


ar J, 


jnp 


de I 


oet, 


sp! 


i 




jmp 


,ho 




law 


10 




jmp 


,+4 


dec, 


spi 


i 




jmp 


• un 




law 


n 




dac 


ops 




jmp 


Ise 


smb. 


spi 


i 




jmp 


,sv 




law 


pi 




jmp 


cns+3 


ens, 


sp! 


i 




jmp 


c Im 




law 


opt 


cns+5, 


dap 


pns 




jmp 


Ise 


oad, 


spi 


i 




jmp 


,ob 




lav; 


poc+7 




. jmp 


t Is 


rad, 


sp i 


i 




jmp 


rdx 




law 


ped 


t Is, 


dap 


pa? 




jmp 


Ise 


erp, 


law 
aqq 


i 47 


era, 


law 

arq 


i 57 


err, 


lac 


(7435 




j u a 


tys 




law 


7234 




jda 


tys 




jmp 


lse-2 



/« 



/used as constant 
/H 



/U 



/S 



/C 



/o 



/R 



a, 



i r 



sxr, 



m. 



xsw, 



am. 



un i * 
ise. 



1 3W 


f ac 


spi 




j mp 


nO 


TAX 




lac 


wrd 


dac 


I 


jmp 


Ise 


law 


io 


jmp 


a + 7 


law 


xr 


jmp 


a+? 


lav/ 


msk 


spi 




jmp 


nO 


lac 


wrd 


skp 




jmp 


am 


dap 


ul 


lac 


fa 


dap 


11 


lac 


ul 


sub 


11 


spa 




jmp 


srr 


jmp 


Ise 


dac 


msk 


jmp 


Ise 


I aw 


hk? 


spi 




jmp 


nO 


add 


(add 


dac 


tas 


dac 


tsp 


lav/ 


7777 


and 


wrd 


ra I 


6s 


for 


!c2 


rar 


6s 


jda 


dep 


jmp 


Ise 


jmp 


ssn-7 



/A 



/I 
/X 

/M 



/* 



lac (and i /<- 
jmp ssn 



ndb, 



ckk, 



sps 




jmp 


pre 


dac 


Iwt 


and 


(777 


sad 


Iwt 


jmp 


. 4 


lac 


Iwt 


and 


(07000Q 


ral 


6s 


j dp 


ckk 


dac 


lc2 


jmp 


Ise 







ssa 


i 


jmp 


i ckk 


jda 


trc 


law 


4000 


I io 


(bbu 


Ixr 


(40 


j da 


ree 


lac 


trc 


jmp 


i ckk 



/check field, AC savee 
/don't need to 



tab, spl l /tab 

j da dep 

dsm Lcp 

ta3, dac wrd 

jsp ice 

Lac iv rd 

I i o I cp 

sn i 

jmp ta4 

and (7777 /Internal 

sub Cac 

dac spt 

TAAX>P 

jmp err 

sub (nl r 

sma 

jmp err 

lac I aa 

j da tys 

Ixr spt 

lac I ab 

j da tys 

jmp ta4±1 

bs„ spi I /backspace 

j da dep 

1 aw 1 

bs + 3, add lec 

jmp ta3 

fs, spl I /t 

j d a de p 

law i ? 

jmp bs + 3 



/dispatch to routines in sch section 



.sv : , 


jsp 


sts 




,un : , 


jsp 


gts 




.ho:, 


j tp 


sts 




,ob: , 


jsp 


gts 




.wd: , 


j sp 


gts 




• nw: , 


jsp 


gts 




a 6d i / 


jsp 


gts 




• zr : , 


jsp 


gts 




.vf :, 


jsp 


Sts 




gts, 


dap 


Isx 






Law 


sch 






sad 


drm 






jmp 


sch 






dac 


drm 






mta 








i io 


(dfd*i 


i +bbu-sch 




law 


sch 






mta 


104 


/read drum 




jmp 


dre 






jmp 


sch 





/dispatch to routines in run section 



• ed: , 

f f • 

. bg : , 

e xe * 

.pr : f 
.pw:, 

gtr, 



jsp 
jsp 
jsp 
jsp 
jsp 
jsp 



gtr 

gtr 

gtr 

gtr 

& «- « 

gtr 



dap Isx 
law sch+szh 
jmp gts+2 



/dispatch to routines in pdv section 



,tp:, 


jsp gtp 


. tb: , 


jsp gtp 


. j b : , 


jsp gtp 


. pn : , 


jsp gtp 


. rd:, 


jsp gtp 


gtp, 


dap Isx 




lav/ sch+szh +szn 




jmp gts+2 



xec, law xrg /* 

spi 

jmp nO 
jmp ,xe 

ucg, spi i /> 

j da dep 
lio lc2 
di o ts2 
jmp ta6*5 

cr^ spl i /c«r, 

j da dep 

dac Lwt 

law 72 

j da tys 

j mp I se + J 

eee, spi /E 

jmp ,ed 
jmp ,ea 

www, law d!w /W 

sp? 

j mp n(? 
j mp . wd 

bgn* law pc /G 

spi 

jmp nO 
jmp ,bg 

ttl, spl /L 

jmp . tp 

lac let 
ssa 

jmp err 

lac i top-? 

and (-20QQ00 

jmp cm2 

pu I, spi /< 



t D i i 



spi 




jmp 


err 


I io 


fa 


dio 


fa2 


I io 


xsw 


dio 


xs2 


dac 


fa 


law 


72 


jda 


tys 


law 


600 


jmp 


lss + 2 


I aw 


tys 


sp i 




jmp 


cns + 3 


imp 


• tb 



ki5, lac let /kill single symbol 

ssa 

jmp err 

TXI. 

dio t4 

lie bot 
kiJ, TIIXA 

sad ( low- top 

jmp err 

lac i top 

SXX 

spa 

jmp .-5 

TXXA 

sad t4 

jmp kl 2 

SAI 

j mp kil 
ki2, lac bot 

A$IP| 

j mp k ? 3 

law i J 

A+II 

X-IX 

lac i top 

X-»IX 

dac i top 

law i 1 

A+XX 

j mp k i 2 
ki3, SXA 

jmp k I 6 

eap, /eql„arw,pbx common 

dac Iwt 

jsp let 

jmp i eap 

elm, lac let /make symbol calm 

ssa 

j mp err 

lac i top-7 

lor (200000 
cm2, dac i top-? 

jmp Ise 

rdx, lac syl + 7 /set radix 

sas ( J 
ss3pqq 

jjmmpp eerrrr 
ddac ops 
jm Isv 



pb. 


lac 


PC 




dac 


wrd 




ra I 


6s 




and 


(7 




08 C 


tc2 




d~m 


mod 




dsm 


icp 




lac 


wrd 




j da 


pad 




lac 


Iwt 




jmp 


ta4+5 


ta4, 


J da 


pad 




I i c 


mod 




law 


7221 




spi 






law 


7257 


ta4+5, 


jda 


tys 




I io 


lep 




jmp 


ta5+6 


ta5, 


lac 


wrd 




and 


(70000 




ral 


6s 




dac 


ic2 


ta5+4„ 


I Io 


i if 




die 


lep 


ta5+6, 


d io 


tsp 




I io 


lc2 




die 


ts2 




lac 


wrd 




dap 


loc 


ta9, 


ior 


(add 




dac 


tas 




jsp 


let 




lac 


mod 




sua 






jmp 


Iss 




jsp 


ret 




dac 


Iwt 


bax, 


jea 


Iwt 




jmp 


pn2 


ta6, 


lac 


Iwt 




and 


(70000 




ra I 


6s 




dac 


ts2 


tao+4„ 


lac 


Iwt 




dzm 


tsp 




jmp 


ta9 



/entry from user program 



/for type- in mode 



/pi , opt , or Iwt 



dra. 


jsp 


txx 




text 


: //35 


fpr, 


t aw 
arq 


i 47 


fpr+2, 


law 
arq 


! 51 




jmp 


lse-2 


ser-3 , 


Law 


Ise 




dap 


dex 




dgm 


dff 


ser, 


lac 

ssa 


dff 




jmp 


dex 




jsp 


txx 




text 


: / 




idx 


dff 




jmp 


dex 


bsy, 


jsp 


txx 




text 


: / 




jmp 


pn2 


nt0, 


TAX 






i sp 


ccc 




jmp 


ent 




TXA 






770040 




dap 


.+2 




law 


11 




ivk 


e 


ntO+1 0, 


law 


I 1 




a dm 


CCC 




qi t 





/drum error 

1341x1 

/flush punch and reader 



/overflow while packing sym 
/symbol table overflow 



/35/sym ovf/34/ 



:/ 



/35/busy/34/:/ 

/filter entries from inferior sphere 



/too many 
/lok 



/ restart 



/dispatch table - lc,uc 

define disp low,upp 
[upp-uc 441*1000 low-uc 44 
termin 



define letter a,b 
Cb-uc 441*1000 a 
termin 



dtb. 



dlsp p ls,p Is 
letter J, quo 
letter 2,sqo 
letter 3,pbx 
letter 4,daq 
letter 5,uni 
letter 6,isc 
letter 7,pul 
letter 10,uc$ 
letter 11 , f s 
disp err, err 
disp err, err 
dlsp err^err 
di sp err , err 
disp err, err 
disp err,err 
letter 0,arw 
disp bar, del 
letter 34 ,smb 
letter 35, tbl 
letter 36, dec 
letter 3J,*vf 
letter 40, www 
letter 4?,sxr 
letter 42, . rd 
letter 43, ,ir 
d isp err , err 
sp com,eql 
sp err, err 
sp err, err 
sp tab, tab 
sp err, err 



o 



/spac« 

/2,' 
/3,$ 
/4,\ 

/&,+- 
/7,< 

/*,> 

/9,i 



10,+ 

11,1 

is 

It 

/u 

/v 

/w 

/x 

/y 

/z 

i ? » ~ 



/tab 



disp . pw,ndb 




/: ,. 


letter 23 # . j b 




/j 


Letter 24, kl I 




/k 


letter 25,ttl 




/I 


letter 26, m /m 






letter 2 7, ,nw 




/n 


letter 30, cad 




/o 


letter 37, .pr 




/P 


letter 32, q /q 






letter 33, rad 




/r 


disp err^err 






disp err, err 






disp min,pls 




/-,+ 


disp def/bas 




/)J 


disp ovb,vb /; , | 






disp lpr,bac 




/(,[ 


di sp err , err 






letter 7 2, a /a 






letter 13, bk 




/b 


letter 74, ens 




/c 


letter 1 5, ,pn 




/d 


letter 76,eee 




/e 


letter 77, f /f 






letter 20,bgn 




/g 


letter 27,oct 




/h 


letter 22, i r 




/! 


disp 1 c , I c /I owe r 


case 




disp dot,xec 




/•,* 


disp uc,uc /upper 


case 




disp bs,bs /backspace 




disp err,Qrr 






disp cr,cr /car. 


ret. 





Iwt, 









dap 


pnx 




lac 


Iwt 


pns^ 


jda 


P i 


pnx, 


jmp 


» 


pad, 









dac 


psy 




lac 


! cZ 




S23 






jmp 


.+4 




jda 


opt 




c 1 1 






tyo 






law 


7777 




and 


pad 




dac 


pi 


pa? , 


jmp 


pad 


Pt * 









jda 


psy 




cl i 






tyo 






lac 


(f 




and 


pi 




ssa 


i 




jmp 


pi d 




cma 






a dm 


pi 




law 


71 




jda 


tys 




lac 


pi 




s=a 


i 




jmp 


i psy 




tyo 




pid, 


lac 


tJ 




and 


(opr 




ssa 


i 




jmp 


poc 




sad 


(sft 




jmp 


pnj 




sad 


( law 




jmp 


ped 




sub 


(skp 




rar 


7s 




sma 






jmp 


poc 


ped, 


jsp 


psy+7 




lac 


(f laxo + 




jda 


tys 


poc. 


lac 


pi 




jda 


opt 




jmp 


i psy 



/ last word typed 

/pi , opt, or tys, depending on S/C/T switch 

/print address 



/other than core 



/ped or poc+T, depending on R/0 switch 
/print instruction 



psy, 


■0 




/scan symbol tab la 




dap 


psx 






lac 


pi 






dac 


to 






dac 


t? 






and 


(770000 






sad 


(770000 






law 


600 






dap 


mms 






and 


(760000 






sad 


(sft 






law 


400 






dap 


sfs 






and 


(760000 






sad 


dot 






law 


600 






dap 


l OS 






and 


(760000 






sas 


(opr 






sad 


(skp 






law 


600 






dap 


psf 




psa- J , 


dap 


pvh 




psa/ 


Ixr 


bot 




pta+J, 


law 


i top-(fl 


! 




dac 


t3 




psr. 


TXXA 


/examine symbol pointed tc 




dac 


t4 






I io 


i top 






SXX 








spi 








jmp 


,-3 






ri I 


Is 


/t4 points to base of sym, 




spi 








jmp 


pet 


/symbol is calm 




lac 


pi 






I ! o 


i top 


/symbol value 




A$IP| 






jmp 


PSX 


/exact match 




AMI>P 






jmp 


pet 


/sym is too big 




A$IA 






and 


(760000 






ssa 


i 






sni 








jmp 


pet 




psf, 


skp 


s 






jmp 


pss 






law 


i 7777 


/skp or opr class 




ior 


to 






cm a 








A«-IP 






jmp 


pet 


/too many bits 




law 


7777 






and 


to 






xct 


pvh 






:V-IP 






jmp 


i^ecj 






jnp 


pet 





by XR 



XR points to value 



pss, Law 7777 
and pi 



dac 10 /address part of word 

law 7777 



and i top 
mms, skp i 



jmp pern /op code 77 

ssa i 

jmp peq 

sub tO 

S2!TI 

jmp pet /sym > address 

add (100 
sfs, skp i . 

add (677 

sma 

jmp peq 

xct i os /sym not close enough 

jmp pet 
peq, law i top-(0 

sad t3 

jmp pes /t3 Ss empty 

lac i top 

X-MX 

lxr't3 

sub i top 

X-*IX 

spa 

jmp pet 
ios, skp . /this sym better than last one 

jmp pes 

lac pi / iot c lass 

sub i top 

and (77 

ssa 

jmp pet 
pes, lac t4 

dac t2 

TXXA 

dac t3 
pet/ SXXAP| 

jmp ,+3 

sas (-18. 

jmp psr 

xct mms 

j mp pmn 
peu, lav/ i top-(0 

xct psf 

jmp pbs 

sas t3 /skp or opr class 

jmp pvh-7 

lac tO 

dac pi 

ssa 

jmp psx 

jmp I osy 



pern,, 


sas 


(70 




jmp 


pet 




and 


pl 




sas 


(70 




jmp 


pet 




jmp 


peq 


pvh-l , 


lac 


(f lex 


pvh, 


skp 


a 




j da 


tys 




Ixr 


13 




lac 


i top 




cma 






and 


to 




dac 


to 




jdp 


spt 




c la 






jmp 


psa-J 


pgx, 


lac 


t4 




dac 


tl 




jdp 


spt 




jmp 


i psy 


pbs, 


sad 


t3 




jmp 


poc 




Ixr 


t3 




lac 


I top 




cma 






a dm 


pi 




jdp 


spt 


P5X, 


jmp 


• 


pnj , 


law 


1 




add 


pl 




and 


pl 




ssa 






jmp 


poc 




Ixr 


(-7*. 




jmp 


psa+7 



/check for meta 



/search ended 

/no acceptable symbol found 



/sft class 



pmn, 



mpb, 



mpc, 



mpe, 



pmf. 



1 aw 


11 


lor 


pi 


TAM 


I 

i 


jmp 


pm? 


law 


7000 


and 


?l 


ssa 


i 


jmp 


peu 


law 


74 


jda 


tys 


I i o 


pi 


r i I 


6s 


cla 




re I 


2s 


TAX Pj 


jmp 


mpb 


rcl 


2s 


ssa 


i 


jmp 


rnpe 


rcl 


Is 


Ixr 


1 mp2-7 


X-*AX 


lor 


I mp3-2 


jmp 


mpc 


re I 


3s 


TAX 




lac 


! mpl-4 


dio 


pi 


j da 


tys 


I lo 


pi 


TID 


:<m 


ZAP 




lax 


char ra 


X+IXI>P 


i or 


mp4 


X.+ I>P 


ior 


(char Ix 


jda 


tys 


1 1 o 


ol 


r? 1 


7s 


law 


17 


,V-IX 




lac 


l mp5 


jda 


tys 


jmp 


i psy 


re i 


7s 


rar 


7s 


xor 


(char It 


ior 


i mp4-7 


jmp 


mpc 


law 


7254 


j da 


tys 


lac 


Pf 


cm a 




jmp 


poc + ! 



/op code 77 



/spec. Inst. 



/unary 



/print negative numbcir 



mpl 



mp2. 



mp3, 



mp4 , 
mp5, 



f lexo 


2 


f lexo 


sa 


f lexo 


s i 


f lexo 


sx 


flex o 


£s < 


*lexo 


X # 


j: t j,. ,, „, 


»* ! 


i *. *C- A *. ' 


.-*■« * 


char m0 


char mm 


char m5 


char m6 


char m3 


char m- 


char mi 


char ma 


char mx 







f lexo 


m 


f lexo 


P 


f lexo 


/ 


f lexo 


7 


f lexo 


7m 


f lexo 


7p 


f lexo 


:7 


f lexo 


1 


f lexo 


£m 


f lexo 


Sp 


f lexo 


:£ 


f lexo 


• 


f lexo 


p; 


f lexo 


m; 


f lexo 


J 



/assorted type-out routines 



tys, 
ty L, 



tyb, 
tyc, 



tyx, 



on s t 



I CC f 

let, 



/numeric print 



opt, 



dap 


tyx 


Ixr 


(-3 


lac 


tys 


ral 


6s 


dac 


tys 


and 


(77 


TAA] 


r p I 


jmp 


tyc 


sas 


(74 


Sad 


(72 


jmp 


dns 


tyo 




SXXIP 


jmp 


ty I 


lac 


Iwt 


jmp 


» 


ra I 


6s 


xor 


(skp 


sad 


cas 


jmp 


tyc 


dac 


cas 


jmp 


tyb 


1 i o 


(7277 


jmp 


,+2 


I i o 


(7236 


di o 


tys 


jnp 


tys + ? 



00 





dap opx 




dsm t2 


opa. 


lac opt 


Opb, 


dac t3 




c I i *swp 




re! 20 




div ops 


ops, 


10 




sas t2 




jmp opb 




sn i 




1 1 o ops 




tyo 




lac t3 




dac t2 




sat opt 




jmp opa 


ODX, 


jmp . 



— *) 



txx, 



txy, 



dap 


txy 


1 aw 


71 


j ua 


tys 


a am 




I io 


txy 


i dx 


txy 


lac 


(607600 


re [ 


6s 


sad 


( lai 


jmp 


51 


sad 


*+2 


jmp 


txx + 3 


swp 




tyo 




I ia 




jmp 


txy-3 



/print name of symbol pointed to by t2 



so t # 





Ixr t2 

lac I top 

and U77777 

mu I (7 

d i v • 1 
50 

H!« 2 

UiV • J 

mul (J 
div ,-3 



j dp cv? 

jdp cvf 

lac ,-3 

jdp cvf 

Ixr t2 

Idx t2 

lac I top 

spa 

jmp spt+? 

jmp 1 spt 



/unsquoze ? character 



cv? , 



;vx 



cvo, 





dio t4 




ssa 1 




jmp cvx 

sad (45 
law 46 
add (7 
TAAX 




sar 3s 
XMAA 




sar 3s 
X-*AX 

add i cvo 

I la 

tyo 

lac t4 




j mp 1 cv J 




10 

6 


-10 
-22 



37 

16 



/F5 on at start •* attach if possible 

/F5 on at end -*• attached 

/F6 on at end -» use dec, otherwise i vk 



trc, 



ge2, 






/translate core 


dap gex 




law 7 7 




and trc 




sas trc 




jmp ge2 


/drum field 


and (7 




sas trc 




jmp err 




elf 6 


/computation ffel 


rar 6s 




dac pvp 




ra I 6s 




ior (010000 


/attach as core 7 


lia 




law 22 




szf 5 




i v k 15 




elf 5 


/can't attach 


jmp gex 




elf 5 




rar 6s 




dac pvp 




and (370000 




ssa 




sub (270000 




sma 




jmp err 




stf 6 





;ex, jmp 



dep, 
fat, 



dp0 # 



apx, 



ft?, 



ftx, 
dp2/ 



a 




2IP 




c I i 


*cmi" 


d\ o 


Ji jC JZ 


dap 


dpx 


lac 


dep 


I io 


tas 


spi 


i 


jmp 


dpx 


lac 


tsp 


S23 




jmp 


dp2 


lac 


ts2 


sad 


wh2 


jmp 

dac 


,+4 
wh2 


c 1 1 £cm? 


dio 


whr 


j da 


trc 


j sp 


ft? 


I i o 


dff 


spi 


i 


lac 


dep 


dac 


1 sbu 


dac 


dep 


spi 




jmp 
lac 


• 
whr 


I i o 


(sbu 


Ixr 


(40 


j da 


wr 1 


lac 


dep 


jmp 


dpx. 


dap 


f tx 


law 


7740 


and 


tas 


sas 


whr 


jmp 
law 


dps 
57 


and 


tas 


TAX 




lac 


i sbu 


jmp 


9 


dac 


wh r 


I io 


(sbu 


Ixr 


(40 


jda 


ree 


jmp 


ft7 + J 



/depos 1 1 



/register not open 

/internal register 
/entry from bpi/bpo 
/core changed 



dp2, I Io dff 

law 77 77 

and tas 

sub (ac 

dac tys 

TAAX>P 

jmp a rr 

sub ( I l-ac 

spa 

jmp dp4 /A I X F G W * M 

sub (2 /M+7,M+2, or B etc, 

sma 

jmp dp<S /B etc, 

dp7, spi /M+7,M+2, or * 

jmp dp3 

Law 7777 /truncate to 7 2 bits 

and dep 

jmp dp3+7 
dp6, sub (nbp /B etc, 

sma 

jmp err 

spi 

jmp dp9 /fet from B 

lac dep /dep in 8 

TAAM| 
jmp dp3 
and (77777 
c I ? I cm I 
dac dep 
h„=0 

repeat nbp^sad bkl b dio bkf b b„=b 1 

dp8 , lac dep 

ra I 6s 
and (7 
j dp ckk 
c I i 

I V V t"\/C 

jmp dp3 

dp9, lac i ac 

sma 

jmp dp 3 +4 

law charac r; 

jda tys 
clc 

dac Iwt 

jmp pn2 

dp3, lac dep 
dp 3+ 7 , spi 

lac i ac 

dac i ac 

dp3+4, dac dep 

jmp dpx 



dp4, sad (-2 /A I X F G W * M 

j mp dp 7 /* 

sad (-4 /A I X F G W M 

spi /G 

jmp dp3 /fet from G, or others 

jrnp dpi /dep in G, check field 

/get word from buffer 

pv # dap pvx 

lac fa 
sub pvf 
TAAX>P 

jmp pdg 
sub wc 
sma 

jmp pdg 
Lac I bbu 
pyx , j mp . 

pdg, lav/ 7740 /get hunk from drum 

and fa 

dac pvf 
pgB , law . 

dac wc 

sub (0100QQ 

add pvf 

CAA< 

c la 

adm wc /to prevent- wrap-around 

TAX 

lac pvf 

I \o (bbu 

j da ree 

jmp pv+7 



/read from drum or sphere 

/F6 tel Is which 

/AC = sector address (inst part clear) 

/&vq = field 

/IO = core address (extend) 

/XR = count (tnst part clear, -* full) 



ree, 







dap rex 




lac ree 




ssf i 6 




jmp eer 




mta 




lac pvp 


rax-4 , 


A*XA 




swp 




dec 




jmp dre 


rex, 


jmp . 


eer, 


ior pvp 




swp 




mta 




lac (020001 


eer+4 , 


A*XA 




ral 6s 




ivk 14 




jmp err 




jmp rex 



/drum field 



/sphere 



/write/ same format 

wri , 

dap rex 

lac wri 

ssf i 6 

j mp i rw 

ior pvp 
mta 
cla 

jmp rex-4 

i rw, ior pvp 
swp 
m t a 

lac (120001 

jmp eer+4 



aa, 


746100 




/A 




747100 




11 




742700 




7x 




746600 




/F 




746700 




/G 




742600 




/W 




747300 




/* 




744400 




/M 




744454 




/M+J 




744454 




/M+2 




746200 




/B 


repeat 


nbp-?, 7462 


54 




ab, 


repeat 


10,0 


/A . . . M 




7201 




/M+/ 




7202 




/M + 2 









/B 


D.,, "™ e 








repeat 


nbp-J , 




720J+.-b 


ac, 







/Interna 


ic, 









xr ; 









fg, 









PC/ 









diw, 









x r § # 


7775 






msk, 


-0 






IU 









ul, 


7777 






bk7, repeat nbp, -0 






n i r_ * . ■ 


-ac 






repeat 


nbp, 








constan 


ts 


aus, 
bot, 
loc, 
lc2, 
lep, 
whr, 
wh2, 
arm, 
ts2, 
tsp, 


jmp Ise 

low- top 

add 





-0 

-0 
sch 




ope, 
obf / 
obp, 
bkf, 








pno, 
xe2, 


1 

-0 


ccc, 


-7 


xs2, 


skp 


WC, 

pvf, 






tsw, 

bpL , 


repeat 6,0 
repeat 3,0 


variabl 


es 


sch=[ 9 - 


n±37+? 



/nop if auto load mode 

/low end of current symbol table 

/current location 

/current field 

/current location flop 

/address of stuff in buffer 

/drum section currently in 
/current examine field 
/current examine flop 

/pc saved during X 

/bkf saved duri ng X 

/more breakpoint junk 

/on if stop was at breakpoint 

/current process 

/location of last execute 

/counts enters from inferior sphere 

/second *< N switch 
/variables for pv 



/search 


section 


sch/ 


Law 


.+5-. sv 




a em 


Isx 




lac 


to 




I io 


(saa 




di o 


wh r 




jmp 


Isx 




* trio 


sav 




jnip 


tins 




jnp 


hoa 




jmp 


obt 




jmp 


nws + J 




jmp 


nws 




jmp 


eas 




jmp 


zro 




jmp 


vfy 



to make ft? work 



sav, 



uns, 



jdp 


cku 


law 


100 


adm 


wrd 


lac 


fa 


I lo 


a3 


di o 


fa 


dac 


a3 


lac 


a 2 


I i o 


wrd 


dac 


wrd 


dio 


a2 


dio 


trc 


jmp 


uns + 3 


j dp 


cku 


lax 


100 


adm 


wrd 



/s 



/exchange read and write fields 



/U 



/fa = write addr, trc * a2 - write field 
/a3 = read addr, wrd = read field 
/ctt = ct = -count 
/F5 is on 



uns+3, 


j sp trc+7 




ssf i 5 




jmp .+5 




lac (010000 




adm fa 




jdp dtc 




jmp Ise-Z 




stf 5 




lac wrd 




jda trc 




szf i 5 




jmp dtd 




iar ( qi nnnn 

it %* \* n v i w w v w 




adm a3 




jdp ctd 




jmp lse-2 


dtd, 


j dp wr0 




nop 


dta, 


c Ic 




dac whr 




law i bbu 




add fa 




SUb Ctt 




sub (1 




ior (37 




SAf * 1 




add (bbu 




sub (top 




sub bot 




TA> 




j mp d t f 




ssf i 4 




law 37 




and a 3 



/drum -* core 






/drum ■* drum 



/will fit In core 



dt7, 



dtf. 



dt«, 



I ia 




cma 




add 


fa 


sub 


( top 


sub 


bot 


szf 


i 4 


ior 


(37 


A+IA 


sub 


ctt 


spq 




law 




CAH 




add 


ctt 


dac 


ct 


die 


ctt 


jdp 


dtc 


lac 


a2 


s = f 


i 4 


jda 


trc 


I aw 


i bbu 


add 


fa 


and 


(7740 


TAAX 


dap 


dt7 


lio 


to 


adrn 


to 


CXA 




adm 


fa 


law 


bbu 


swp 




j da 


wr i 


lac 


fa 


Ix r 


(bbu 


A$XP( 


jmp 


dta 


Ho 


i • 


dio 


! 


SXX 




jmp 


dt7-2 


dio 


wc 


lac 


ctt 


dac 


ct 


jep 


dtc 


S2f 


4 


jmp 


dtf 


clc 




dac 


whr 


lac 


a t 


jda 


trc 


law 


i bbu 


add 


i a 


sad 


wc 


jmp 


dt9 


aed 


to 


dac 


tas 


jsp 


ft? 


aan 




dac 


fa 


Idx 


fa 



/largest count that will fit In core 
/and end on a sector when reading 

/leave at least 1 word for later 



/-number to read now 
/-number to read later 



/fill up rest of last sector 



jmp dttf 



dt9, 



Ixr 


wc 


I io 


(bbu 


lac 


to 


j da 


wr i 


jmp 


lse-2 



/core to drum or sphere transfer 

/a3 = core addr 

/fa - drum/sphere addr 

/a3 = field 

/ct - -count 

/uses first 40 words of bbu 

ctd, 
ct6. 



ct7, 



ct9, 



cd5 








jdp 


wr0 


jmp 


ct9 


law 


bbu+40 


sad 


fa 


jmp 


ct7 


aam 




lac 


a3 


aam 




dac 


T6 


law 


? 


a ciu 


&3 


dap 


a3 


law 


1 


add 


fa 


dap 


fa 


?sp 


ct 


jmp 


Ct6 


I io 


(bbu 


l oC 


to 


Ixr 


(40 


jda 


wr 1 


lac 


Ct 


ssa 


1 


jmp 


! ctd 


law 


40 


adm 


to 


law 


31 


lor 


ct 


GAAP ] 


jmp 


cd5 


dac 


t? 


and 


(7777 


TAX 




I Io 


a3 


lac 


tf 


j da 


wri 


lac 


t? 


add 


to 


dap 


to 


lac 


U 


add 


a3 


dap 


a3 


lac 


tl 


adm 


ct 


ssa 


i 


jmp 


i ctd 


I io 


(bbu 


lac 


to 


Ix r 


(40 


jda 


res 


Ixr 


(bbu 



/done 



/check for full sectors 



aam 




lac 


a3 


dac 


i 


law 


1 


add 


a3 


dap 


a3 


sxx 




isp 


ct 


jmp 


.-70 


Ixr 


(40 


I i o 


(bbu 


lac 


to 


j da 


wri 


jmp 


i ctd 



/drum or sphere to core transfer 

/fa - core addr (updated) 

/a3 - drum/sphere addr (updated) 

/wrd = field 

/ct = -count (destroyed) 

/uses ft?, so beware of whr 

/If F4 on, transmit sero 



dtc, 



us?, 



US?"M, 



us2 , 










cif 


5 




szf 


4 




jmp 


dts 




lac 


wrd 




jda 


trc 




law 


37 




and 


&3 




sga 


i 




jmp 


us2 


/on boundary 


lac 


&3 




dac 


ta s 




jsp 


ft? 




aam 






dac 


fa 




law 


? 




add 


fa 




dap 


fa 




law 


1 




add 


a3 




dap 


a3 




isp 


ct 




jmp 


us? 




jmp 


i dtc 




law 


37 


/check for full sectors 


ior 


ct 




CAAP| 




jmp 


us 1 +4 


/no fu I I sectors 


dac 


t; 




and 


(7777 




TAX 




/count 


I i o 


fa 


/core addr 


lac 


a3 


/drum addr 


jda 


ree 




lac 


t? 




add 


a3 




dap 


3.3 




lac 


tl 




add 


fa 




dap 


ra 




lac 


t? 




a dm 


ct 




ssa 


i 




jmp 


i dtc 




jmp 


us!+4 





dta, 



Ixr fa 

dsm I 
SXXI 
isp ct 
jmp ,-3 

dio fa 
jmp i dtc 



noa, 



Lac 


(010000 


xct 


xsw 


dac 


fa 


1 io 


fa 


AM KM 


TII> 


imp 


err 


law 


100 


add 


v/rd 


dac 


a£ 


law 


top- low 


add 


bot 


dac 


ct 


add 


fa 


spa 




jmp 


&rr 


dac 


I ow 


dac 


Iwt 


dac 


i d 


law 


top 


add 


bot 


dac 


a3 


jdp 


Ctd 


jsp 


let 


lac 


Iwt 


j da 


opt 


jmp 


lse-2 



/H 



/won ' t fit 



obt, Lac (01000.0 /0 
xct xsw 
dac fa 
1 1 o fa 
dio a2 
AMKM 
TII> 
j mp err 
law 100 
a dm wrd 

Law i low-bbu-300 
add a2 
spa 
cla 

dac a3 
sub a2 
dac ct 
add ( low* I 
dac fa 

law i top- low 
dac bo t 

jdp dtc /read 

lac low 
spa 



jmp err /table extends below bottom of field? 

sub a2 /-size of table 

sma 

jmp err 

add (low+f 

dac tas /origin in core 

sub (bbu+300 

spq 

jmp err /wouldn't fit in core 

/tas = base of alleged symbol table 





law 


i low 




add 


tas 




TAX 




re 5 , 


TXXF 


1 




jmp 


r&9 


ra5+2, 


SXX< 






jmp 


err 




lac 


I low-/ 




sma 






jmp 


.+5 




ra I 


Is 




spa 






jmp 


err 




jmp 


re5 + 2 




OAA 






jmp 


re5 


re 9, 


lav/ 


i top 




dac 


whr 




add 


tas 




jmp 


ki6 



/bad format 



/since ft? was used 



nws , 


I io 


( S28 i 


/N 


nv/s + J / 


law 


wsf+7 


/w 




jmp 


,+2 




eas, 


Law 


ea? 


/E 




dap 


ws f 






die 


we a 






I ! o 


chl 






spi 








jmp 


err 






jsp 


ck? 






jsp 


Ice 





/fa = addr, trc = a2 = field 
/ctt = ct = -count 
/F5 is on 

jsp trc+J 

dsn lep 

lac (010000 

dac pvf 

ssf 5 

adm fa 

I aw ws f - 1 

dap pvx 

wsl, sgf i 5 /read word at address in f< 

jmp pv+? 

a am 

lac fa 

v/sf-7 / dac chc 

wsf, jmp , /. + J(W,N)oreaJ(E) 

xor wrd 

and msk 
wea, 

jmp wst 

lac fa /print this word 

dap loc 

j da pad 

law 2136 

j da tys 

lac chc 

j da Iwt 

jsp lec 

wst, idx fa 

isp ct 

jmp wsl 

jmp lse-2 



: <i *. / 



aa3. 



®9S/ 



ea6 



ea2, 



',a5, 



Cs G C 


t2 


asm 
snd 

Sad 


opt 

(760 00 
(ca I 


jmp 


aa2 


SUb 


( s k p 


rar 


7s 


sma 




jmp 
lac 


ws t 
tf 


re I 


5s 


sma 




jmp 
law 


ea2 
7777 


and 
dac 
saf 


tf 

tas 

r 
3 


jnp ea5 
sub pvf 
TAAX>P 


jmp 


ea.6 


sub 


wc 


sma 




jmp 
lac 
dac 


ea6 
i bbu 
t2 


lac 
ra I 


DC 

Js 


spa 




jmp 
idx 

sas 


ea2 
opt 
(TO 


jmp 

jmp 
jsp 


ea3 
ws t 
ft? 


jmp 
law 
and 


aag 

7777 

t2 


jmp 
lac 


wsf +J 

(010000 


adm 


tas 


aam 
lac 


tas 


jmp 


t* Gs >3 



/not addressable 



/need to indirect 



5ro, 



zr2, 



zr3, 



1 io 


ch i 


xct 


X5W 


spi 




jmp 


gr2 


I 10 


I I 


d io 


fa 


I io 


ul 


d io 


ct 


lia 




jmp 


sr3 


spi 


i 


jmp 


.+3 


asm 


fa 


law 


7777 


dac 


ct 


1 IO 


lc2 


jsp 


ck2 



/2 



/fa = addr, trc = a2 
/ctt = ct = -count 
/F5 is on 



= field 



jsp trc+7 




stf 4 




szf i 5 , 




jmp dtd 


/on drum 


lac (010000 


/in core 


add fa 




TAX 




dzm i 




sxx 




isp ct 




j nip , -3 




jmp lse-2 





vfy, 



vr0 



vf3, 



vf9, 



vfS, 



1 1 o 


ch i 


sp I 




imp 


err 


j dp 


cku 


d=m 


lep 


jsp 


lec 


jsp 


trc+f 


szf 


i 5 


jmp 


vf5 


lac 


fa 


I io 


&3 


dac 


a3 


d io 


fa 


lac 


w r d 


elf 


5 


j da 


trc 


lac 


(010Q00 


a dm 


a3 


stf 


2 


ssf 


I 2 


jmp 


vf 6 


aam 




lac 


a 3 


dac 


chc 


jsp 


pv 


xor 


chc 


and 


msk 


sia 


1 


jmp 


vf* 


lac 


a3 


szf 


4 


lac 


fa 


dap 


loc 


jda 


pad 


law 


2136 


j da 


tys 


lac 


chc 


szf 


4 


jsp 


pv 


jda 


Iwt 


jsp 


let 


lac 


chc 


saf 


i 4 


jsp 


PV 


j da 


Iwt 


jsp 


lec 


law 


1 


add 


fa 


dap 


fa 


law 


1 


add 


a3 


dap 


a3 


isp 


ct 


jmp 


vf 3 


jnp 


lse-3 



/v 



vf5, stf 5 

lac wrd 

jda trc /try to attach other field 

.szf i 5 

jmp vf7 

stf 4 /to indicate reversed order 

lac a2 
j mp v f 

vf7, dsm ctt /can't attach either 

lac a2 
jda trc 
xct pgS 

sar Ts /split buffer in half 

and (7740 
cmalstf 4 

dac aJ /length of top buffer 

adm pg£ /make pv use lower buffer 

add (bbu 

dap vf2 /origin of top buffer 

jmp vf3 

vf6, Ixr ctt /get word from top buffer 

TXX< 

jmp .+4 

i dx ctt 
vf4, lac i , 

jmp vf9 

lac wrd /read a chunk 

jda trc 

law 7740 

and a 3 

lia 

sub a7 

sub (010000 

sma 

cla /to prevent wrap-around 

add (010000 
AM IX 
sub a3 
cma 

dac ctt 
vf2, law » /origin of core area 

A + XA 
dap vf4 
xct vf2 
swp 

j da ree 
lac a2 

jda trc /restore other field for pv 
jmp vfo 



cku, 





lac 

add 

xct 

cla 

dac 

lac 



fa 

(400000 

xsw 

a3 
cku 



/set up save or unsave 



/offset 



ckl, 



ck2 * 



die 

dap 



11 
fa 
u I 
ct 
lc2 
a2 
trc 
xc I 



/set up E,W,N,S,U,V 



xcl, 



cla*stf 

dip fa 

dip ct 

lac ct 

sub fa 

SAA> 

jmp err 

CAI 

dlo 

di c 

lac 

add 

and 

dac 

jmp 



ct 

ctt 

fa 

a3 

(7777 

aS 



/set up Z 



/core address 



/-count 



/drum addr for S, U 



a?, 

a3, 
ct, 
ctt, 



/prepare for writing from bbu 



w r 1 









elf 


5 




lac 


a2 




jda 


trc 




law 


i 37 




and 


fa 




dac 


to 




sub 


fa 




lio 


(bbu 




dio 


fa 




CAA| 






jmp 


1 vjrO 




adm 


fa 




I i o 


(bbu 




Ixr 


(40 




lac 


to 




jda 


ree 




Idx 


vsrO 




jmp 


i vvr0 


constants 







S2h__ =. -sch 



/run section 




offset 


55h 




sen/ 


i aw 


*+4-*ed 




adm 


Isx 




Lac 


to 




I lo 


chl 




imp 


Isx 




imp 


ed! 




jmp 


ff 




jmp 


bgO 




jmp 


xe0 




jmp 


pra 




jmp 


pwd 



/read process state, number in 10 

rpp, 



law 


ac 


mta 




law 


41 


ivk 


14 


jmp 


i rpp 


i dx 


rpp 


I io 


io 


lac 


xr 


dac 


Io 


lac 




dac 


xr 


law 


i 7700 


and 


pc 


dac 


f& 


d io 


PC 


jmp 


i rpp 



/put things in right order 



/write process state, number in pno 
wpp, 










lac 


ac 




dac 


tsw 




lac 


PC 




dac 


tsw 


? 


lac 


i o 




dac 


tsw 


2 


lac 


xr 




dac 


tsw 


3 


lac 


fg 




dac 


tsw 


4 


lac 


diw 




dac 


tsw 


5 


law 


tsw 




mta 






I io 


pno 




sni 






jmp 


.+4 




law 


52 




ivk 


14 




jmp 


i wpp 


i dx 


wpp 




jmp 


i wp p 



bpo, ZIP /breakpoints out 

bpi, cli^emi /breakpoints In 

dsm t2 
bpi+2, dlo dff /breakpoints In except for t2 

dap oq6 

lav/ bp5 

dap dpx /exit from fet/dep 

law i nbp 

ciac t3 
bp2, ixr t3 

lac 1 bk0+2*nbp 

dac dep /saved instruction 

Lac i bkJ+nbp 

spa 

jmp hp4 /no breakpoint here 

dac tas 

ra I 6s 

and ( 7 

jmp dp0 /go to fet/dep 

bp5, lio dff 

X-*IM 

jmp bp4 

Ixr t3 

dac I bk?+2*nbp /save instruction 

lac t2 

A$XP| 

jmp bp4 /don't put in breakpoint 

TIX 

lac (bpt 

dac i sbu 

lac vvhr 

I io (sbu 

Ixr (40 

j da w r i 
bp4, Isp t3 

jmp bp2 
bp6„ jmp . 



bgO 



law 


7 


and 


lc2 


sas 


lc2 


jmp 


er r 


jdp 


ckk 


rar 


6s 


xor 


PC 


and 


(070000 


xor 


PC 


dec 


PC 


lac 


wrd 


dap 


pc 


clc 




dac 


ope 


jmp 


p? 



/save bad pc 



xeO, 



li o 


PC /* 


dlo 


ope 


I !o 


bkf 


dio 


obf 


lie 


bp I 


dio 


obp 


lac 


xrg 


xct 


xsw 


dac 


fa 


Law 


7 


dip 


fa 


and 


lc2 


sas 


lc2 


jmp 


err 


rar 


6s 


lor 


fa" 


dac 


xe2 /execute 


xor 


pc 


and 


(077777 


xor 


PC 


dac 


?>c 


lac 


Lc2 


jda 


trc 


law 


i 37 


and 


fa 


dac 


t2 


I ia 




law 


42 


add 


fa 


and 


(-37 


AM I AX 


dac 


t? 


la i 




I io 


(bbu 


jda 


ree 


law 


37 


and 


fa 


TAX 




lac 


wrd 


dac 


i bbu 


lac 


(bpt 


dac 


I bbu+J 


dac 


i bbu+2 


lac 


t2 


I io 


(bbu 


Ur 


t/ 


jda 


v/r i 


jmp 


p7+2 



address 



pra, spi /P 

law 1 

cm a 

add (40Q0Q0 

dac bpl+? /proceed count 

lac (070000 

and pc 

ra I 6s 

jdp ckk 

lac bkf 

xor pc 

and (077777 

ssa /proceed from bpt? 

jmp p7+2 /no 

law i nbp 

dac t2 
pi, TAX 

lac i bk?+nbp 

sad bpl /one still there? 

jmp p9 /yes 

isp t3 

jmp pg 

jmp p/+2 

p9, cli^cmi /must interpret bpt 
jsp bpi+2 
law 4000 
ior fg 
dac fg 
jmp p2 /turn on ESI 

p7, clc /start user 

dac xe2 
pJ+2, elf 7 /disable call button 

jsp bpi 

law i 4000 

and fg 

dac fg 

lac (400000 

dac bpl+? /clear proceed count 
p2, jsp lec 

j dp WPP 

jmp err 

lio (bpl 

law 72 

ivk 14 /write bpl stuff 

law 7 2 

ivk 14 /permit processing 

jmp nt0+J0 



ent, 



nt4, 



cqq 



cq i 



i am 






eem 






TXA 






dap 


nt4 


/entered process capab 1 I 


die 


11 




law 


2 




Ivk 


14 


/suppress processing 


cic 






dac 


whr 




I io 


(bpl 




law 


61 




ivk 


14 


/read breakpoint status 


jsp 


bpo 




law 


77 




and 


tJ 




dac 


tJ 




sad 


(14 




jmp 


cql 


/hit cal I 


law 


61 




! vk 


• 


/read process number 


hit 






I ia 






law 


11 




xct 


nt4 


/restart it 


d io 


pno 




jdp 


rpp 




nop 






Ixr 


t? 




xct 


i dqq 




lor 


(740000 




1 1 a 






jmp 


i 1 + 7 




law 


1010 


10 - illegal instruction 


law 


0404 


11 - lock fau It 


law 


0606 


11 - stray ESI trap 


law 


1111 


/3 - fen busy 


jmp 


1 bp 


/4 - breakpoint 


law 


1111 


15 - halt 


law 


0707 


16 - memory protect 


jmp 


el 


17 - iot 2377 


law 


0506 


/IO - rnta 4 


I aw 


0605 


111 - rnta 5 


jmp 


aut 


/72 - rnta 6 (avtomatlc a 


jmp 


cl 


/13 - rnta 7 (dsm) 


I i o 


pno 




jdp 


rpp 


/try to get old proc bac 


skp 


1 




jmp 


ell 




I io 


(7 




dlo 


pno 


/use process 7 


j dp 


r?p 




skp 


i 




jmp 


cl l 




c Ic 






M 3 C 


bkf 




QSC 


bp I 




jmp 


npp 


/no proc 



:-*G,K,2T,7U) 



7bp, 



2b, 



lac xe2 

TAAM| 

jmp 2b 

xor pc 

and (070000 

jmp 2b 
lac pc 
ior (400000 
sub xe2 
and (7777 
sad ( ? 
jmp cl 
sas (2 
jmp 2b 
j s p Ice 
jmp cl 



/break po int 

/* In progress? 

/no 



/returned to wrong cora 



/returned, no skip 

/incorrect return 
/ski pped 



jmp 3b 



iac bp I 

b_=0 
repeat nbp-J,sad bkJ b 

sas bk? b 

jmp i i /bpt not assigned 
3b, law 7255 

dac Iwt 

I io pc 

d io bkf 

jmp ob 



=b / 



ell, i I o C 72 55 /call button 
jmp , 2 

11, lie (741010 /Illegal instruction 
c Ic 

dac bkf 
dac bpl 



3bp, dio 


Iwt 




lac 


xa2 




TAAM | 




jmp 


pb 


/* not 1 n 


xor 


pc 




and 


(077777 




553 






jmp 


pb 




law 


7473 


/this wa s 


jda 


tys 




lac 


Iwt 




jda 


tys 




j sp 


let 




lac 


xe2 




lor 


(add 




dac 


tas 




ral 


6s 




and 


(7 




dac 


ts2 




dsm 


tsp 




jsp 


fet 




jda 


Iwt 




cl, lac 


ope 


/asm 


xor 


pc 




and 


(077777 




xor 


pc 




ci+4, dac 


pc 


/aut comes 


1 I o 


obf 




di o 


bkf 




1 J o 


obp 




dio 


bp I 




c Ic 






dac 


ope 




dac 


obf 




dac 


obp 




xct 


aus 


/nop i f au 


lav/ 


i top-l< 


ow 


dac 


bot 


/K 


law 


2 




dac 


wrd 




jmp 


. tb 


/2T next 


/automatic G addr setup, K, 2T # 


aut/ lac 


(nop 




dac 


aus 




dsm 


lc2 




lac 


ac 




jmp 


el +4 





progress 



an 



nere 



TU 



edi, cla*stf 5 /E 

jea trc 

ssf i 5 

jmp err /not ?n core? 

cla 

mta 

lio ($10000 

lac (010000 

mta 104 /read drum 

jmp dre 

law 2 

dac pc 
ide, clc 

dac ope 
b_=0 repeat nbp,dac bk?+b b_=b+? 

dac msk 

dsm I I 

law 7777 

dac u I 

dsm fg 

jmp p? 

fil, law 16 /start file sys 

mta 

lac (204272 

ivk 14 /dismiss old tape 

lac t? 
ral 6 s 
ior (16 
mta 

lac (306272 

ivk 14 /assign new tape 

jmp bsy 
dsm ac 
dam io 
dzm pc 
cla 

j da t re 
lac (ivk 16 
dac bbu 
dam bbu+7 
c la 

lio (bbu 
Ixr (40 
j da v/r i 
j np ? de 



ff, lac i if /F with argument 



ffS 



ff2, 



lac 


iif 


ssa 




jnp 


err 


i i o 


let 


lxr 


(syl-tpp 


spi 


! 


lxr 


(cnc-top 


lac 


wrd 


xct 


sgn 


dac 


t? 


sp! 




jmp 


ff2 


j sp 


Ice 


lac 


t? 


lio 


fa 


xct 


xsw 


c 1 1 




arq 




jmp 


ff3 


dac 


t2 


jsp 


lec 


lac 


t2 


sad 


t? 


jmp 


lse-2 


ral 


6s 


j da 


opt 


jmp 


lse-2 


and 


(77 


sad 


t/ 


jmp 


f i I 


j sp 


lec 


lac 


t? 


sad 


(-2 


jmp 


m2f 


SAP] 




jmp 


mJf 


and 


(777 


lio 


fa 


mta 


7 


I i o 


fa2 


ral 


9s 


jor 


(272 


ivk 


14 


jmp 


s +4 


dac 


t2 


jsp 


lec 


lac 


t2 


sad 


fa 


xct 


xsw 


j da 


opt 


jmp 


lse-2 



/number 
/symbol 



/start f ? le sys 



ml f, 



mZf, 



npp ( 



pwd, 



law 
ivk 
jmp 

jdp 

nop 
law 
ivk 
dac 
Ixr 

sxx 

jmp 
jmp 

I io 

law 
i vk 
jmp 
I io 
jdp 
skp 
jmp 
I i o 
q\ o 
jdp 
skp 
jmp 
dsm 
jsp 
tex 
jmp 

lac 
spi 
jmp 
jdp 
nop 
I io 
jdp 
jmp 
I i o 
dio 
jmp 



P 



.-2 
Ise 

pno 

272 

14 

err 

pno 

rpp 

i 

Ise 

(7 

pno 

rpp 



/create process 

/can't 

/write out old stuff 



202 
14 
err 
wpp 

222 

14 

pno 

(-6 

i ac+6 /clear live registers 



/delete current process 



/try process 7 



Ise 
pno 
txx 
t //35/no proc/34/:/ 
Ise 



pno 

eq I 

wpp 

wrd 
rpp 
err 
wrd 
pno 
Ise 



/ 



constants 
[.-73*37 + 7/ 

ssn =»-sch 



/pdV 



sch/ 



jbk, 



pbw, 



sect i on 




t ssh+ssr 




law 


.+4-.t 


a dm 


Isx 


lac 


to 


I io 


ch 1 


jmp 


Isx 


jmp 


tp0 


jmp 


tb? 


jmp 


jbk 


jmp 


pun 


jmp 


rd 


spl 




jmp 


&rr 


law 


charac 


arq 




jmp 


bsy 


law 


i 40 


j ^9 


fee 


lac 


wrd 


lor 


(jnp 


jdp 


pbw 


law 


i 520 


jdp 


fee 


jmp 


fpr 







I ia 




repeat 3,p 


a dm 


tz 


jmp 


i pbw 



/J 



rp 



re I 6 s 



fee, 



c 1 1 
ppa 
SAAP 
jmp ,-2 
jmp i fee 



3 T f 



/assign reader and start reading 



taw 


charac 


rr 


arq 






jmp 


bsy 




jsp 


let 




skp 


i 




rpb 




/ 


rpb 






spi 


1 




jmp 


.-3 




jdp 


rbk 




law 


f lexo 


ok 


jda 


tys 




jsp 


let 




jmp 


! ar 





/flush loader 



r&i 



/read a block 



rbd, 



rhB , 



d=m let 




dsm chi 




rpb 




diot-2 




dio cnc 




TIA<M 




j mp , + 5 




and (077777 /start block 


ssf 4 




dac pc 




jmp fpr+2 




rpb 




die ch 




[3? 




sub t2 




spq 




jmp ere 




1 aw I 1 




add ch 




xor t2 




and (777700 




S28 




jmp ere 




2X 




rpb 




die 1 rbf 




lai 




a dm chi 




SXXI 




idx t2 




sas ch 




jmp rb0 




dl o II f 




add chi 




add cnc 




rpb 




A$IP 




jmp cse 




c la 




dip cnc 




dip ch 




jmp i rbk 





ese, 



j sp 

tex 
ty i 
la 1 
sas 
jmp 
law 
arq 
jmp 
jsp 
jmp 
sas 
jmp 
j sp 
jmp 



txx /checksum error 
t f/3S/cksn/54/ :/ 



(charac re 

51 /read block again 

arr 

let 

rbk+1 

(charac rd 

fpr+2 

let /accept block as read 

rb5 



.A. W C* 








iac 


Let 


sas 


1 if 


jmp 


9 +3 


jdp 


rhk 


jnp 
TAX 
i dx 
lac 


gwd+l 

let 

I rbf 



i JTin i 0T>,/ rs 



tb7, 



tb3, 



lac 

dsm 
sas 
jmp 
j sp 
i aw 
add 
dac 
jdp 
dac 
jdp 
dac 
jdp 
dac 
Lac 
and 
i io 

A*I 

jmp 



dff 

(7 

pot 

ar 

i 3 

bot 

sym 

gwd 

wc 

gwd 

pvf 

gwd 

df? 

pvf 

U77777 

wc 

p i 

fpr*0 

i fori* ? 



/T 



//T 



i n i 



300' 

dac 
A$I 
ssa 
idx 
iac 
a dm 
sn » 

JSP 

jmp 



(177777 
i top 

i 

sym 

(400000 
i top 

C19+ J 

tb3 



/two word symbol 



pot, sas (2 /2T 

/restrict word count for 

/enable call button 
/get number of symbols 



sas 


(2 


jmp 


err 


Law 


240 


dap 


PgS 


law 


6 


dac 


fa 


cla*stf 1 


jda 


trc 


jsp 


pv 


TAA| 




jmp 


rrf * 


CAA< 


jmp 


err 


dac 


tas 


law 


n 


dac 


fa 


jsp 


pv 


-rv A 


(7777 


dac 


t3 


law 


7 


dac 


fa 


jsp 


DV 


^Tid 


(7777 


dac 


i a 


sub 


t3 


nu 1 


(I 


.0! V 


tas 


hit 




sn I 


i 


jmp 


err 


dac 


t4 


sub 


(7 


spq 




jmp 


err 


sub 


(10 


sma 




jmp 


err 



/end of table 



/origin of table 



I « I 



£f 3 



lac 


tot 


sub 


t4 


dac 


t2 


dac 


sym 


I aw 


I T 


add 


bot 


dac 


t7 


stf 


4 


stf 


2 


dsm 


sy I 


j sp 


pv 


I la 




and 


(177777 


A$IP 


d io 


sy I 


ssf 


i 4 


ior 


(400000 


Ixr 


t? 


dac 


i top-7 


sn ! i 


ts^f 2 i 


imp 


6 +4 


elf 


2 


lac 


t? 


dac 


sym 


elf 


4 


idx 


fa 


law 


i 7 


aclm 


t7 


sas 


t2 


jmp 


sff 


jsp 


pv 


dac 


df 7 


lac 


sym 


sub 


bot 


SA< 




jmp 


.+4 


I i o 


sy I 


sn i 




jsp 


de + 2 


icix 


fa 


isp 


tas 


jmp 


gfd 


xct 


3US 


cla 




dap 


xsw 


lav/ 


7 


dac 


wrd 


jmp 


8 un 



/gees off after first word 
/goes off after sero seen 



/symbol is calm 



/truncate symbol 



/no name 

/don't define If calm 



/auto load moda 



/7U next 



pun, 



pd2 : 



pd3 : 



xct 


xsw 


spi 




jmp 


pd2 


I IO 


11 


dio 


fa 


1 \o 


ul 


u 1 O 


t4 


and 


<7 


jmp 


Pd3 


spl 


I 


jmp 


i+3 


asm 


fa 


taw 


7777 


dac 


t4 


Law 


7 


and 


trc 


sas 


trc 


cla 




rar 


6s 


dac 


chi 


cla 




d lp 


fa 


sj 1 p 


t4 


Idx 


t4 


sub 


fa 


spq 




j np 


s r r 


lac 


lc2 


jda 


trc 



/D 

/ a< b D or D 
/aD 



/core for block origins 



Pb5, 



pb4, 



pb ? I , 



law 


77 


ior 


i a 


SAA 




G3C 


to 


sub 


t4 


CAA< 


c la 




aem 


to 


skp 


600 


jmp 


pb? 


dzm 


t2 


lac 


fa 


add 


chi 


j dp 


pbw 


lac 


to 


add 


ch I 


j dp 


pbvv 


lac 


fa 


ior 


(d io 


xct 


pb4 


jdp 


pbw 


jsp 


pv 


jdp 


pbvv 


i dx 


fa 


sas 


to 


jmp 


pb? 


lac 


t2 


xct 


pb4 


skp 


i 


jdp 


pbvv 


lav/ 


i 10 


j dp 


fee 


lac 


to 


sas 


t4 


jnp 


pb5 


jmp 


pn2 



/punch one block 



/end addr 

/or skp for read In mode 



/punch checksum 



rd, stf 4 /Y 



stf 


4 


lac 


wrd 


xct 


xsw 


SPS 




lac 


lef 


jda 


trc 


lac 


11 


I io 


ul 


xct 


xsw 


jmp 


s +3 


lac 


fa 


1 so 


wrd 


dac 


sy I 


dlo 


sym 


cla 




dip 


sy I 


dip 


sym 


idx 


sym 


sub 


sy I 


spq 




jmp 


err 


j dp 


ar 


lac 


sy I 


sub 


cnc 


spa 




c la 




dac 


let 


adm 


cnc 


lac 


sym 


sub 


ch 


sma 




c la 




adm 


i If 


sub 


let 


spq 




jmp 


nb 



/ 1 owe r limit 
/upper limit 



vy4, lac syl /process one block 





law 


100 




xor 


Iif 




for 


let 




ssa 






jmp 


yn2 + 4 




lac 


cnc 




I io 


(rbf 


yn2 : , 


Ixr 


O00 




jda 


v/r i 


nb:, 


jdp 


rbk 




jmp 


vy4 


yn2+4 ; , 


law 


7700 




and 


cnc 




dac 


ch 




l!o 


(bbu 




Ixr 


(100 




j da 


ree 




law 


bbu 




sub 


ch 




a dm 


cnc 




Ixr 


let 




lac 


i rbf 




aam 






dac 


cnc 




i dx 


cnc 




SXXA 




sas 


iff 




jmp 


.-6 




lac 


ch 




I Ic 


(bbu 




jmp 


ynZ 



/process block for Y 



/full block 



/read next block 



tp0. 


law 


charac r& /I 




arq 








jnp 


bsy 






law 


i 30 






jdp 


fee 






j sp 


Ice 




tpf 1, 


ty I 
La i 








sad 


(77 






jmp 


p i r 






sad 


(75 






jmp 


p2 2 






sas 


(36 






jmp 


tt7 




pr i \ 9 


lav*/ 





/to punch in read in 




jmp 


pi 1 




pi r:, 


law 


i 40 






j dp 


fee 






Ixr 


(-24 




pl 5 < » ^ 


lac 


(die 


7775 




X+AA 






jdp 


pbw 






lac 


i lod 


1+24 




jdp 


pbw 






SXXP 






jmp 


pi 3 






jmp 


P22 + 2 




P22:, 


lav.' 


i 3Q 






jep 


fee 






lac 


(jmp 


7752 




j dp 


pbw 






lav/ 


600 


/to punch data blocks 


pUv 


dap 


pb4 






law 


i 30 






jdp 


fee 






jmp 


Ise 





lod:, eem 
c I i 

770037 
rpb 

dio 7776 
TIX>P 

jmp i 7 776 
rpb 

dio 7777 
rpb 

dio i 7776 
X + IX 
idx 7776 
sas 77 77 
jmp 776 3 
X+AA 
rpb 
A$IP 
hit 
jmp 7755 



/Lcr 



ttf, 



tt4: 



dac ch 
sal 2s 

adm 
law 
dac 



idx 

mu I 

TAX 

re I 

I i o 

TAX 

xct 

law 

A*- 1 1 

ppa 

isp 

jmp 

c I i 

ppa 

jmp 



ch 
i 5 
tl 
ch 
tt5 



2s 
i ttO 

\ tts 

77 



tl 
tt4 



tpJ 



/title punch tab le 



ttO :, 








/space, 1,1 




427740 


006251 


515156 




224145 


453214 


13,4,5 




121177 


102745 


4545 31 




364545 


453001 


/6,7;8 




017105 


033245 


454532 




065151 


513600 


/9 


ttS : , 


nop 


r\i 6s 


r ! r 6s 




nop 




















OOOOOQ 


000036 


10,1 




414141 


364020 


140101 




224545 


453001 


/s^t,u 




017701 


013740 


404037 




073060 


300737 


/v,w,x 




601460 


374122 


142241 




010274 


010161 


/y,5 




514145 


430000 


000000 




141414 


141400 


/- 

























000000 


001010 


741010 




204040 


403777 


/ j , k, I 




101422 


417740 


404040 




770214 


027777 


/m,n,o 




021420 


773641 


414136 




771111 


110636 


/p,q,r 




415121 


567711 


113146 


ttSx, 


125252 









OOOOOQ 


001010 


101010 




004132 


140000 


/),! ,( 




007700 


000014 


224100 




OOOOOQ 


000076 


/a,b 




111111 


767745 


454532 




364141 


412277 


/c,d,e 




414141 


367745 


454141 




770505 


010136 


/f «■ h 




415151 


307710 


101077 




004177 


410000 


1 1 , low, . 




000103 


000000 


606000 




000301 


000000 


/up 


constants 








rbf, 


*+lQQ/ 







S2V_=. -sch 

repeat if2,[printo ssh printc 77 

prlnto ssn printc 77 

printo S5V printc 771 

bbu B sch+szh 

repeat I f m szh-szn, bbu s sch+S2n 

repeat \fm bbu-sch-S2V,bbu !s 5ch + 52v 



/- 



de fine this a 

squoze a 
terminate 



offset 






7400/ 






low , 


this 


i 




this 


and 




this 


ior 




this 


xor 




this 


xct 




this 


Ixr 




this 


jdp 




this 


ca I 




this 


j da 




this 


lac 




this 


I io 




this 


dac 




this 


dap 




this 


d i p 




this 


di o 




this 


dsm 




this 


a dm 




this 


add 




this 


sub 




this 


i dx 




this 


isp 




this 


sad 




this 


sas 




this 


mu I 




th is 


div 




this 


jmp 




this 


jsp 




this 


clo 




this 


skp 




this 


S2S 




this 


SHf 




this 


spq 




this 


ssm 




this 


520 




this 


spi 




this 


sn i 




this 


sma 




this 


ssa 




this 


spa 



th 


s 


sft 


th 


5 


ra I 


th 


S 


r? 1 


th 


s 


rcl 


th 


s 


sal 


th 


s 


s! 1 


th 


s 


sc 1 


th' 


5 


rar 


th 


s 


r\ r 


th 


s 


rcr 


th 


s 


sar 


th 


s 


si r 


th 


s 


scr 


th 


5 


I aw 


th 


s 


iot 


th 


s 


tyl 


th 


s 


ckn 


th' 


s 


rrb 


th' 


5 


cks 


th 


s 


dsc 


th 


s 


asc 


th 


s 


cac 


th 


s 


Ism 


th 


s 


esm 


th 


s 


CDS 


th 


s 


dia 


th 


s 


dec 


th 


s 


dra 


th 


s 


rbt 


th 


5 


arq 


th 


s 


wat 


th 


s 


sd I 


th 


5 


lei 


th 


s 


lea 


th 


s 


rer 


th 


s 


rpa 


t i ! 


s 


rpb 


th 


"s 


tyo 


th 


s 


ppa 


th 


s 


PPb 


+■ u 


s 


dpy 


th 


is 


i vk 



this 


nop 


t h 1 s 


opr 


this 


elf 


this 


stf 


this 


"lat 


this 


swp 


this 


cmi 


this 


c lc 


this 


Cl ! 


this 


c la 


thi s 


cm a 


this 


I i a 


this 


Lai 


this 


hit 


this 


frk 


th is 


qi t 


th is 


bpt 


this 


lem 


this 


eem 


this 


rpf 


this 


Ipf 


this 


nam 


this 


bam 


this 


iam 


thi s 


dam 


this 


a am 


this 


mta 


this 


dsm 


this 


9s 


this 


Ss 


this 


7s 


this 


6s 


this 


5s 


this 


4s 


this 


3s 


this 


2s 


this 


Is 



top, 



start Ise 



